Calendar.xojo_code

#tag Class
Protected Class Calendar
Inherits Canvas
	#tag Event
		Function MouseDown(X As Integer, Y As Integer) As Boolean
		  Return True
		  
		End Function
	#tag EndEvent

	#tag Event
		Sub MouseExit()
		  Dim i as integer
		  for i = 0 to UBound(CalendarButtonClassArray)
		    
		    CalendarButtonClassArray(i).mouseOver = False
		    
		  next
		  
		  
		  
		  
		  Me.Invalidate(False)
		End Sub
	#tag EndEvent

	#tag Event
		Sub MouseMove(X As Integer, Y As Integer)
		  
		  Dim i as integer
		  for i = 0 to UBound(CalendarButtonClassArray)
		    
		    
		    if i > 6  Then
		      if  X >= CalendarButtonClassArray(i).LeftX AND X <= CalendarButtonClassArray(i).RightX AND Y >= CalendarButtonClassArray(i).TopY AND Y <= CalendarButtonClassArray(i).BottomY Then
		        
		        
		        
		        
		        CalendarButtonClassArray(i).mouseOver = True
		        
		        
		        
		        
		        
		      Else
		        
		        
		        
		        
		        CalendarButtonClassArray(i).mouseOver = False
		        
		        
		        
		        
		        
		      end if
		    end if
		    
		    
		    
		    Me.Invalidate(False)
		  next
		End Sub
	#tag EndEvent

	#tag Event
		Sub MouseUp(X As Integer, Y As Integer)
		  Dim i as integer
		  for i = 0 to UBound(CalendarButtonClassArray)
		    
		    
		    if Keyboard.ShiftKey = True Then // Multi Selection
		      if AllowMultipleSelections = True Then
		        if X >= CalendarButtonClassArray(i).LeftX AND X <= CalendarButtonClassArray(i).RightX AND Y >= CalendarButtonClassArray(i).TopY AND Y <= CalendarButtonClassArray(i).BottomY Then
		          CalendarButtonClassArray(i).Selected = True
		          SelectedDate = New Date
		          // Set the correct month
		          if CalendarButtonClassArray(i).NextMonthMark = True Then
		            SelectedDate.Month = convertMonthStringToMonthNumber(NextMonth)
		          Elseif CalendarButtonClassArray(i).PrevMonthMark = True Then
		            SelectedDate.Month = convertMonthStringToMonthNumber(PreviousMonth)
		          end if
		          SelectedDate.Month = convertMonthStringToMonthNumber(SelectedMonth)
		          SelectedDate.Year = CDbl(SelectedYear)
		          SelectedDate.Day = CalendarButtonClassArray(i).Day
		          CalendarButtonClassArray(i).SelectedDate = SelectedDate
		          Calendar_Container(window).raiseThisEvent(CalendarButtonClassArray(i).SelectedDate)
		          Me.Invalidate(False)
		        end if
		      end if
		      
		    Elseif Keyboard.ShiftKey = False Then // Single Selection
		      if i > 6 Then
		        if X >= CalendarButtonClassArray(i).LeftX AND X <= CalendarButtonClassArray(i).RightX AND Y >= CalendarButtonClassArray(i).TopY AND Y <= CalendarButtonClassArray(i).BottomY Then
		          deselectAll()
		          CalendarButtonClassArray(i).Selected = True
		          SelectedDate = New Date
		          // Set the correct month
		          Dim MonthToAdvance as String
		          if CalendarButtonClassArray(i).NextMonthMark = True Then
		            SelectedDate.Month = convertMonthStringToMonthNumber(NextMonth)
		            SelectedDate.Day = CalendarButtonClassArray(i).Day
		            MonthToAdvance = "Next"
		          Elseif CalendarButtonClassArray(i).PrevMonthMark = True Then
		            SelectedDate.Month = convertMonthStringToMonthNumber(PreviousMonth)
		            SelectedDate.Day = CalendarButtonClassArray(i).Day
		            MonthToAdvance = "Prev"
		          end if
		          SelectedDate.Year = CDbl(SelectedYear)
		          CalendarButtonClassArray(i).SelectedDate = SelectedDate
		          if MonthToAdvance = "Next" or MonthToAdvance = "Prev" Then
		            // Converting here
		            deselectAll()
		            takeUsToMonth(MonthToAdvance, SelectedDate)
		            Calendar_Container(window).raiseThisEvent(SelectedDate)
		            //
		            
		            for ii as integer = 0 to UBound(CalendarButtonClassArray)
		              if CalendarButtonClassArray(ii).Day = SelectedDate.Day Then
		                CalendarButtonClassArray(ii).TransMark = True
		                CalendarButtonClassArray(ii).SelectedDate = SelectedDate
		              Else
		                CalendarButtonClassArray(ii).TransMark = False
		              End if
		              
		            next ii
		            deselectAll()
		            remapSelectedToSlot()
		          Else
		            SelectedDate.Month = convertMonthStringToMonthNumber(SelectedMonth)
		            SelectedDate.Day = CalendarButtonClassArray(i).Day
		            Calendar_Container(window).raiseThisEvent(SelectedDate)
		            
		          End if
		          Me.Invalidate(False)
		        end if
		        
		        
		        
		      end if
		    End if
		  next i
		  
		  
		  
		  // Need to flag if the date is in the current month, previous month, or next month
		  
		End Sub
	#tag EndEvent

	#tag Event
		Sub Open()
		  #If TargetWin32 Then
		    DoubleBuffer = True
		    Transparent = True
		    EraseBackground = False
		  #endif
		  
		  
		  // Set Initially the Selected Date for Today's Date
		  Dim TodayIsTheDay as new Date
		  SelectedDate = TodayIsTheDay
		End Sub
	#tag EndEvent

	#tag Event
		Sub Paint(g As Graphics, areas() As REALbasic.Rect)
		  g.AntiAlias = True
		  
		  // FILL BACKGROUND COLOR
		  g.ForeColor = RGB(255,255,255)
		  g.FillRoundRect (1,1,me.Width-2,me.Height-2,8,8)
		  
		  // DRAW CANVAS BORDER OUTLINE 
		  g.ForeColor = RGB(170,170,170)
		  g.PenHeight = 2
		  g.PenWidth = 2
		  #IF TargetWin32 Then
		    g.DrawRect(0,0,me.Width,me.Height)
		  #ELSE
		    g.DrawroundRect(0,0,me.Width,me.Height,0,0)
		  #ENDIF
		  
		  
		  
		  '// DRAW GRIDLINES FOR DEBUGGING
		  'for q as integer = 0 to CalendarButtonClassArray.Ubound
		  'g.ForeColor = &cff0000
		  'g.DrawLine(CalendarButtonClassArray(q).LeftX, CalendarButtonClassArray(q).TopY,CalendarButtonClassArray(q).RightX, CalendarButtonClassArray(q).TopY)
		  'g.DrawLine(CalendarButtonClassArray(q).LeftX, CalendarButtonClassArray(q).TopY, CalendarButtonClassArray(q).LeftX, CalendarButtonClassArray(q).BottomY)
		  'next q
		  
		  
		  
		  // DRAW COLUMN LINE: USER OPTION
		  If drawColumnLines = True Then
		    Dim lineWidth as Integer = 1
		    Dim colLineX1POS as Integer = 30
		    Dim colLineY1POS as Integer = 8
		    Dim colLineX2POS as Integer = 30
		    Dim colLineY2POS as Integer = 160
		    g.PenHeight = lineWidth
		    g.PenWidth = lineWidth
		    
		    for i as integer = 1 to 6
		      g.DrawLine(colLineX1POS, colLineY1POS, colLineX2POS, colLineY2POS)
		      colLineX1POS = colLineX1POS + 30
		      colLineX2POS = colLineX1POS
		    next i
		  End If
		  
		  // SET TODAYS DATE ON FIRST RUN
		  dim OffSet as Integer = 3
		  dim TwoOffset as Integer = (OffSet*2)
		  dim CurveSize as Integer = 6
		  if SelectTodayRunOnce = False Then
		    for i as integer = 7 to UBound(CalendarButtonClassArray)
		      if CalendarButtonClassArray(i).MyDate = CurrentDate Then
		        CalendarButtonClassArray(i).Selected = True
		        CalendarButtonClassArray(i).SelectedDate = CurrentDate
		      end if
		    next
		    SelectTodayRunOnce = True
		  end if
		  
		  
		  // HIGHLIGHT CALENDAR DAY SLOT WHEN SELECTED
		  for i as integer = 0 to UBound(CalendarButtonClassArray)
		    if CalendarButtonClassArray(i).Selected = True Then
		      if CalendarButtonClassArray(i).Day <> 0 Then
		        // Capture Selected Date in Date format for Custom Event
		        g.ForeColor = &c1261A0 
		        #IF TargetMacOS OR TargetLinux Then
		          Dim theLeft as Integer = CalendarButtonClassArray(i).LeftX + 2
		          Dim theTop as Integer = CalendarButtonClassArray(i).TopY
		          Dim theWidth as Integer = CalendarButtonClassArray(i).Width
		          Dim theHeight as Integer = (CalendarButtonClassArray(i).Height)+1
		          g.FillroundRect(theLeft, theTop,theWidth,theHeight,4,4)
		        #ELSEIF TargetWin32 Then
		          Dim theLeft as Integer = CalendarButtonClassArray(i).LeftX+OffSet+1
		          Dim theTop as Integer = CalendarButtonClassArray(i).TopY+OffSet
		          Dim theWidth as Integer = CalendarButtonClassArray(i).Width-TwoOffset
		          Dim theHeight as Integer = CalendarButtonClassArray(i).Height-TwoOffset
		          g.FillRoundRect(theLeft, theTop,theWidth,theHeight,0,0)
		        #ENDIF
		      End if
		    End if
		  Next i
		  
		  
		  // MOUSE OVER HIGHLIGHT SLOT
		  for i as integer = 0 to UBound(CalendarButtonClassArray)
		    if CalendarButtonClassArray(i).mouseOver = True Then
		      if CalendarButtonClassArray(i).Day <> 0 Then
		        // Capture Selected Date in Date format for Custom Event
		        g.ForeColor = &c1261A0 
		        #IF TargetMacOS OR TargetLinux Then
		          Dim theLeft as Integer = CalendarButtonClassArray(i).LeftX + 2
		          Dim theTop as Integer = CalendarButtonClassArray(i).TopY
		          Dim theWidth as Integer = CalendarButtonClassArray(i).Width
		          Dim theHeight as Integer = (CalendarButtonClassArray(i).Height) +1
		          g.DrawroundRect(theLeft, theTop,theWidth,theHeight,4,4)
		        #ELSEIF TargetWin32 Then
		          Dim theLeft as Integer = CalendarButtonClassArray(i).LeftX+OffSet+1
		          Dim theTop as Integer = CalendarButtonClassArray(i).TopY+OffSet
		          Dim theWidth as Integer = CalendarButtonClassArray(i).Width-TwoOffset
		          Dim theHeight as Integer = CalendarButtonClassArray(i).Height-TwoOffset
		          g.DrawRect(theLeft, theTop,theWidth,theHeight)
		        #ENDIF
		      End if
		    End if
		  Next i
		  
		  
		  
		  
		  
		  // DRAW DAYS OF WEEK ABBREVIATION WORK
		  g.ForeColor = &c595959
		  g.TextFont = "System"
		  g.Bold = false
		  g.TextSize = 12
		  
		  dim thisPosX, thisPosY as Integer
		  Dim nextPosX as Integer
		  for p as integer = 0 to 6
		    
		    if CalMonFirstDayOfWeekBool = False Then
		      // CALCULATE SPACING FOR VARIABLE ABBR NAMES --> SUN - SAT
		      dim thisAbbrvStrW as Double = g.StringWidth(DayOfWeekArray_SS(p))
		      dim thisAbbrvStrH as Double = g.StringHeight(DayOfWeekArray_SS(p), 500)
		      dim thisSlotW as Double = CalendarButtonClassArray(p).Width
		      dim thisSlotH as Double = CalendarButtonClassArray(p).Height
		      dim thisSlotLeft as Double = CalendarButton.RightX
		      dim thisSlotTop as Double = CalendarButtonClassArray(p).TopY
		      
		      thisPosX =  thisPosX + (thisSlotW/2) - (thisAbbrvStrW/2)
		      thisPosY =  (thisSlotH/2) + (thisAbbrvStrH/2)-2
		      g.DrawString(DayOfWeekArray_SS(p), thisPosX, thisPosY)
		      // NEXT LEFT BORDER STARTING POINT
		      nextPosX  = nextPosX + CalendarButtonClassArray(p).RightX
		      thisPosX = nextPosX
		      
		    Elseif CalMonFirstDayOfWeekBool = True Then
		      // CALCULATE SPACING FOR VARIABLE ABBR NAMES - MON - SUN
		      dim thisAbbrvStrW as Double = g.StringWidth(DayOfWeek_MS(p))
		      dim thisAbbrvStrH as Double = g.StringHeight(DayOfWeek_MS(p), 500)
		      dim thisSlotW as Double = CalendarButtonClassArray(p).Width
		      dim thisSlotH as Double = CalendarButtonClassArray(p).Height
		      dim thisSlotLeft as Double = CalendarButton.RightX
		      dim thisSlotTop as Double = CalendarButtonClassArray(p).TopY
		      
		      thisPosX =  thisPosX + (thisSlotW/2) - (thisAbbrvStrW/2)
		      thisPosY =  (thisSlotH/2) + (thisAbbrvStrH/2)-2
		      g.DrawString(DayOfWeek_MS(p), thisPosX, thisPosY)
		      // NEXT LEFT BORDER STARTING POINT
		      nextPosX  = nextPosX + CalendarButtonClassArray(p).RightX
		      thisPosX = nextPosX
		      
		    end if
		    
		  next p
		  
		  
		  
		  
		  
		  // DRAW DAY NUMBER IN CALENDAR SLOT
		  Dim SelectMonthInt as Integer = convertMonthStringToMonthNumber(SelectedMonth)
		  for i as integer = 7 to UBound(CalendarButtonClassArray)
		    if CalendarButtonClassArray(i).Selected = True Then
		      if CDbl(SelectedYear) = CurrentDate.Year AND SelectMonthInt = CurrentDate.Month AND CalendarButtonClassArray(i).Day = CurrentDate.Day Then
		        g.bold = false
		        g.ForeColor = RGB(255,255,255)
		      Else
		        g.bold = false
		        g.ForeColor = RGB(255,255,255)
		      End if
		    elseif CalendarButtonClassArray(i).NextMonthMark = True OR  CalendarButtonClassArray(i).PrevMonthMark = True Then
		      g.bold = false
		      g.ForeColor= RGB(170,170,170)
		    elseif CDbl(SelectedYear) = CurrentDate.Year AND SelectMonthInt = CurrentDate.Month AND CalendarButtonClassArray(i).Day = CurrentDate.Day Then
		      g.bold = True
		      g.ForeColor = &c1261A
		    Else
		      g.bold = false
		      g.ForeColor = &c333333
		    End if
		    
		    // Draw Days Centered -- Windows GDI+ Is different that MacOS for centering the Calendar Day Text FYI.
		    #IF TargetWin32 Then
		      if CalendarButtonClassArray(i).Day = 0 Then
		        g.DrawString("",CalendarButtonClassArray(i).LeftX+13,CalendarButtonClassArray(i).TopY+17)
		      Else
		        if CalendarButtonClassArray(i).Day > 0 AND CalendarButtonClassArray(i).Day < 10 Then
		          g.DrawString(Str(CalendarButtonClassArray(i).day),CalendarButtonClassArray(i).LeftX+12.5,CalendarButtonClassArray(i).TopY+17)
		        Else
		          g.DrawString(Str(CalendarButtonClassArray(i).day),CalendarButtonClassArray(i).LeftX+10,CalendarButtonClassArray(i).TopY+17)
		        End if
		        
		      End if
		      
		    #ELSEIF TargetMacOS OR TargetLinux Then
		      
		      if CalendarButtonClassArray(i).Day = 0 Then
		        g.DrawString("",CalendarButtonClassArray(i).LeftX+12.5,CalendarButtonClassArray(i).TopY+18)
		        
		        
		      Else
		        
		        if CalendarButtonClassArray(i).Day > 0 AND CalendarButtonClassArray(i).Day < 10 Then
		          
		          g.DrawString(Str(CalendarButtonClassArray(i).day),CalendarButtonClassArray(i).LeftX+12.5,CalendarButtonClassArray(i).TopY+17)
		        Else
		          g.DrawString(Str(CalendarButtonClassArray(i).day),CalendarButtonClassArray(i).LeftX+8.5,CalendarButtonClassArray(i).TopY+17)
		          
		          
		        End if
		      End if
		      
		      
		      
		      
		      
		      
		    #ENDIF
		    
		    
		  next i
		  
		  
		  
		  
		  
		End Sub
	#tag EndEvent


	#tag Method, Flags = &h0
		Sub buildLocalizedDayOfWeekList(inLocalizationInt as Integer)
		  Select Case inLocalizationInt
		    
		  Case 0
		    Localized_Monday = "Monday"
		    Localized_Tuesday = "Tuesday"
		    Localized_Wednesday = "Wednesday"
		    Localized_Thursday = "Thursday"
		    Localized_Friday = "Friday"
		    Localized_Saturday = "Saturday"
		    Localized_Sunday = "Sunday"
		    
		  Case 1  // French
		    Localized_Monday = "Lundi"
		    Localized_Tuesday = "Mardi"
		    Localized_Wednesday = "Mercredi"
		    Localized_Thursday = "Jeudi"
		    Localized_Friday = "Vendredi"
		    Localized_Saturday = "Samedi"
		    Localized_Sunday = "Dimanche"
		    
		  Case 2  // Swedish
		    Localized_Monday = "Måndag"
		    Localized_Tuesday = "Tisdag"
		    Localized_Wednesday = "Onsdag"
		    Localized_Thursday = "Torsdag"
		    Localized_Friday = "Fredag"
		    Localized_Saturday = "Lördag"
		    Localized_Sunday = "Söndag"
		    
		  Case 3 // Italian
		    Localized_Monday = "Lunedì"
		    Localized_Tuesday = "Martedì"
		    Localized_Wednesday = "Mercoledì"
		    Localized_Thursday = "Giovedì"
		    Localized_Friday = "Venerdì"
		    Localized_Saturday = "Sabato"
		    Localized_Sunday = "Domenica"
		    
		  Case 4 // Spanish
		    Localized_Monday = "Lunes"
		    Localized_Tuesday = "Martes"
		    Localized_Wednesday = "Miércoles"
		    Localized_Thursday = "Jueves"
		    Localized_Friday = "Viernes"
		    Localized_Saturday = "Sábado"
		    Localized_Sunday = "Domingo"
		    
		  Case 5 // Dutch
		    Localized_Monday = "Maandag"
		    Localized_Tuesday = "Dinsdag"
		    Localized_Wednesday = "Woensdag"
		    Localized_Thursday = "Donderdag"
		    Localized_Friday = "Vrijdag"
		    Localized_Saturday = "Zaterdag"
		    Localized_Sunday = "Zondag"
		    
		  Case 6 // German
		    Localized_Monday = "Montag"
		    Localized_Tuesday = "Dienstag"
		    Localized_Wednesday = "Mittwoch"
		    Localized_Thursday = "Donnerstag"
		    Localized_Friday = "Freitag"
		    Localized_Saturday = "Samstag"
		    Localized_Sunday = "Sonntag"
		    
		  Case 7 // Afrikaans
		    Localized_Monday = "Maandag"
		    Localized_Tuesday = "Dinsdag"
		    Localized_Wednesday = "Woensdag"
		    Localized_Thursday = "Donderdag"
		    Localized_Friday = "Vrydag"
		    Localized_Saturday = "Saterdag"
		    Localized_Sunday = "Sondag"
		    
		  Case 8 // Polish
		    Localized_Monday = "Poniedziałek"
		    Localized_Tuesday = "Wtorek"
		    Localized_Wednesday = "Środa"
		    Localized_Thursday = "Czwartek"
		    Localized_Friday = "Piątek"
		    Localized_Saturday = "Sobota"
		    Localized_Sunday = "Niedziela"
		    
		  Case 9 // Portuguese
		    Localized_Monday = "Segunda-feira"
		    Localized_Tuesday = "Terça-feira"
		    Localized_Wednesday = "Quarta-feira"
		    Localized_Thursday = "Quinta-feira"
		    Localized_Friday = "Sexta-feira"
		    Localized_Saturday = "Sábado"
		    Localized_Sunday = "Domingo"
		  End Select
		  
		  
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h0
		Sub buildLocalizedDayOfWeek_Arrays(inLocalizationInt as Integer)
		  Select Case inLocalizationInt
		    
		  Case 0
		    ////////////////////////////
		    /////// English ///////
		    ///////////////////////////
		    //Sat - Sun
		    Redim DayOfWeekArray_SS(-1)
		    DayOfWeekArray_SS.Append "Su"
		    DayOfWeekArray_SS.Append "Mo"
		    DayOfWeekArray_SS.Append "Tu"
		    DayOfWeekArray_SS.Append "We"
		    DayOfWeekArray_SS.Append "Th"
		    DayOfWeekArray_SS.Append "Fr"
		    DayOfWeekArray_SS.Append "Sa"
		    // Mon - Sun
		    Redim DayOfWeek_MS(-1)
		    DayOfWeek_MS.Append "Mo"
		    DayOfWeek_MS.Append "Tu"
		    DayOfWeek_MS.Append "We"
		    DayOfWeek_MS.Append "Th"
		    DayOfWeek_MS.Append "Fr"
		    DayOfWeek_MS.Append "Sa"
		    DayOfWeek_MS.Append "Su"
		    
		  Case 1 // French
		    //Sat - Sun
		    Redim DayOfWeekArray_SS(-1)
		    DayOfWeekArray_SS.Append "Dim"
		    DayOfWeekArray_SS.Append "Lun"
		    DayOfWeekArray_SS.Append "Mar"
		    DayOfWeekArray_SS.Append "Mer"
		    DayOfWeekArray_SS.Append "Jeu"
		    DayOfWeekArray_SS.Append "Ven"
		    DayOfWeekArray_SS.Append "Sam"
		    // Mon - Sun
		    Redim DayOfWeek_MS(-1)
		    DayOfWeek_MS.Append "Lun"
		    DayOfWeek_MS.Append "Mar"
		    DayOfWeek_MS.Append "Mer"
		    DayOfWeek_MS.Append "Jeu"
		    DayOfWeek_MS.Append "Ven"
		    DayOfWeek_MS.Append "Sam"
		    DayOfWeek_MS.Append "Dim"
		    
		  Case 2 // Swedish
		    //Sat - Sun
		    Redim DayOfWeekArray_SS(-1)
		    DayOfWeekArray_SS.Append "Sön"
		    DayOfWeekArray_SS.Append "Mån"
		    DayOfWeekArray_SS.Append "Tis"
		    DayOfWeekArray_SS.Append "Ons"
		    DayOfWeekArray_SS.Append "Tor"
		    DayOfWeekArray_SS.Append "Fre"
		    DayOfWeekArray_SS.Append "Lör"
		    // Mon - Sun
		    Redim DayOfWeek_MS(-1)
		    DayOfWeek_MS.Append "Mån"
		    DayOfWeek_MS.Append "Tis"
		    DayOfWeek_MS.Append "Ons"
		    DayOfWeek_MS.Append "Tor"
		    DayOfWeek_MS.Append "Fre"
		    DayOfWeek_MS.Append "Lör"
		    DayOfWeek_MS.Append "Sön"
		    
		  Case 3 // Italian
		    Redim DayOfWeekArray_SS(-1)
		    DayOfWeekArray_SS.Append "Dom"
		    DayOfWeekArray_SS.Append "Mar"
		    DayOfWeekArray_SS.Append "Mer"
		    DayOfWeekArray_SS.Append "Gio"
		    DayOfWeekArray_SS.Append "Ven"
		    DayOfWeekArray_SS.Append "Sab"
		    DayOfWeekArray_SS.Append "Lör"
		    // Mon - Sun
		    Redim DayOfWeek_MS(-1)
		    DayOfWeek_MS.Append "Lun"
		    DayOfWeek_MS.Append "Mar"
		    DayOfWeek_MS.Append "Mer"
		    DayOfWeek_MS.Append "Gio"
		    DayOfWeek_MS.Append "Ven"
		    DayOfWeek_MS.Append "Sab"
		    DayOfWeek_MS.Append "Dom"
		    
		    
		  Case 4 // Spanish
		    Redim DayOfWeekArray_SS(-1)
		    DayOfWeekArray_SS.Append "Do" // Sunday
		    DayOfWeekArray_SS.Append "Lu"
		    DayOfWeekArray_SS.Append "Ma"
		    DayOfWeekArray_SS.Append "Mi"
		    DayOfWeekArray_SS.Append "Ju"
		    DayOfWeekArray_SS.Append "Vi"
		    DayOfWeekArray_SS.Append "Sá" // Saturday
		    // Mon - Sun
		    Redim DayOfWeek_MS(-1)
		    DayOfWeek_MS.Append "Lu" // Monday
		    DayOfWeek_MS.Append "Ma"
		    DayOfWeek_MS.Append "Mi"
		    DayOfWeek_MS.Append "Ju"
		    DayOfWeek_MS.Append "Vi"
		    DayOfWeek_MS.Append "Sá"
		    DayOfWeek_MS.Append "Do" // Sunday
		    
		    
		  Case 5 // Dutch  
		    Redim DayOfWeekArray_SS(-1)
		    DayOfWeekArray_SS.Append "Zon" // Sunday
		    DayOfWeekArray_SS.Append "Maa"
		    DayOfWeekArray_SS.Append "Din"
		    DayOfWeekArray_SS.Append "Woe"
		    DayOfWeekArray_SS.Append "Don"
		    DayOfWeekArray_SS.Append "Vry"
		    DayOfWeekArray_SS.Append "Zat" // Saturday
		    // Mon - Sun
		    Redim DayOfWeek_MS(-1)
		    DayOfWeek_MS.Append "Maa" // Monday
		    DayOfWeek_MS.Append "Din"
		    DayOfWeek_MS.Append "Woe"
		    DayOfWeek_MS.Append "Don"
		    DayOfWeek_MS.Append "Vry"
		    DayOfWeek_MS.Append "Zat"
		    DayOfWeek_MS.Append "Zon" // Sunday
		    
		  Case 6 // German
		    Redim DayOfWeekArray_SS(-1)
		    DayOfWeekArray_SS.Append "So" // Sunday
		    DayOfWeekArray_SS.Append "Mo"
		    DayOfWeekArray_SS.Append "Di"
		    DayOfWeekArray_SS.Append "Mi"
		    DayOfWeekArray_SS.Append "Do"
		    DayOfWeekArray_SS.Append "Fr"
		    DayOfWeekArray_SS.Append "Sa" // Saturday
		    // Mon - Sun
		    Redim DayOfWeek_MS(-1)
		    DayOfWeek_MS.Append "Mo" // Monday
		    DayOfWeek_MS.Append "Di"
		    DayOfWeek_MS.Append "Mi"
		    DayOfWeek_MS.Append "Do"
		    DayOfWeek_MS.Append "Fr"
		    DayOfWeek_MS.Append "Sa"
		    DayOfWeek_MS.Append "So" // Sunday
		    
		  Case 7 // Africaans
		    Redim DayOfWeekArray_SS(-1)
		    DayOfWeekArray_SS.Append "Son" // Sunday
		    DayOfWeekArray_SS.Append "Maa"
		    DayOfWeekArray_SS.Append "Din"
		    DayOfWeekArray_SS.Append "Woe"
		    DayOfWeekArray_SS.Append "Don"
		    DayOfWeekArray_SS.Append "Vry"
		    DayOfWeekArray_SS.Append "Sat" // Saturday
		    // Mon - Sun
		    Redim DayOfWeek_MS(-1)
		    DayOfWeek_MS.Append "Maa" // Monday
		    DayOfWeek_MS.Append "Din"
		    DayOfWeek_MS.Append "Woe"
		    DayOfWeek_MS.Append "Don"
		    DayOfWeek_MS.Append "Vry"
		    DayOfWeek_MS.Append "Sat"
		    DayOfWeek_MS.Append "Son" // Sunday
		    
		  Case 8 // Polish
		    Redim DayOfWeekArray_SS(-1)
		    DayOfWeekArray_SS.Append "Ni" // Sunday
		    DayOfWeekArray_SS.Append "Pn"
		    DayOfWeekArray_SS.Append "Wt"
		    DayOfWeekArray_SS.Append "Śr"
		    DayOfWeekArray_SS.Append "Czw"
		    DayOfWeekArray_SS.Append "Pt"
		    DayOfWeekArray_SS.Append "Sob" // Saturday
		    // Mon - Sun
		    Redim DayOfWeek_MS(-1)
		    DayOfWeek_MS.Append "Pn" // Monday
		    DayOfWeek_MS.Append "Wt"
		    DayOfWeek_MS.Append "Śr"
		    DayOfWeek_MS.Append "Czw"
		    DayOfWeek_MS.Append "Pt"
		    DayOfWeek_MS.Append "Sob"
		    DayOfWeek_MS.Append "Ni" // Sunday
		    
		  Case 9 // Portuguese
		    Redim DayOfWeekArray_SS(-1)
		    DayOfWeekArray_SS.Append "Dom" // Sunday
		    DayOfWeekArray_SS.Append "Seg"
		    DayOfWeekArray_SS.Append "Ter"
		    DayOfWeekArray_SS.Append "Qua"
		    DayOfWeekArray_SS.Append "Qui"
		    DayOfWeekArray_SS.Append "Sex"
		    DayOfWeekArray_SS.Append "Sab" // Saturday
		    // Mon - Sun
		    Redim DayOfWeek_MS(-1)
		    DayOfWeek_MS.Append "Seg" // Monday
		    DayOfWeek_MS.Append "Ter"
		    DayOfWeek_MS.Append "Qua"
		    DayOfWeek_MS.Append "Qui"
		    DayOfWeek_MS.Append "Sex"
		    DayOfWeek_MS.Append "Sab"
		    DayOfWeek_MS.Append "Dom" // Sunday
		    
		  End Select
		  
		  
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h0
		Sub buildLocalizedMonthList(inLocalizationInt as Integer)
		  Select Case inLocalizationInt
		    
		  Case 0
		    Localized_January = "January"
		    Localized_February = "February"
		    Localized_March = "March"
		    Localized_April = "April"
		    Localized_May = "May"
		    Localized_June = "June"
		    Localized_July = "July"
		    Localized_August = "August"
		    Localized_September = "September"
		    Localized_October = "October"
		    Localized_November = "November"
		    Localized_December = "December"
		    
		  Case 1  // French
		    Localized_January = "Janvier"
		    Localized_February = "Février"
		    Localized_March = "Mars"
		    Localized_April = "Avril"
		    Localized_May = "Mai"
		    Localized_June = "Juin"
		    Localized_July = "Juillet"
		    Localized_August = "Août"
		    Localized_September = "Septembre"
		    Localized_October = "Octobre"
		    Localized_November = "Novembre"
		    Localized_December = "Décembre"
		    
		  Case 2 // Swedish
		    Localized_January = "Januari"
		    Localized_February = "Februari"
		    Localized_March = "Mars"
		    Localized_April = "April"
		    Localized_May = "Maj"
		    Localized_June = "Juni"
		    Localized_July = "Juli"
		    Localized_August = "Augusti"
		    Localized_September = "September"
		    Localized_October = "Oktober"
		    Localized_November = "November"
		    Localized_December = "December"
		    
		  Case 3 // Italian
		    Localized_January = "Gennaio"
		    Localized_February = "Febbraio"
		    Localized_March = "Marzo"
		    Localized_April = "Aprile"
		    Localized_May = "Maggio"
		    Localized_June = "Giugno"
		    Localized_July = "Luglio"
		    Localized_August = "Agosto"
		    Localized_September = "Settembre"
		    Localized_October = "Ottobre"
		    Localized_November = "Novembre"
		    Localized_December = "Dicembre"
		    
		  Case 4 // Spanish
		    Localized_January = "Enero"
		    Localized_February = "Febrero"
		    Localized_March = "Marzo"
		    Localized_April = "Abril"
		    Localized_May = "Mayo"
		    Localized_June = "Junio"
		    Localized_July = "Julio"
		    Localized_August = "Agosto"
		    Localized_September = "Septiembre"
		    Localized_October = "Octubre"
		    Localized_November = "Noviembre"
		    Localized_December = "Diciembre"
		    
		  Case 5 // Dutch
		    Localized_January = "Januari"
		    Localized_February = "Februari"
		    Localized_March = "Maart"
		    Localized_April = "April"
		    Localized_May = "Mei"
		    Localized_June = "Juni"
		    Localized_July = "Juli"
		    Localized_August = "Augustus"
		    Localized_September = "September"
		    Localized_October = "Oktober"
		    Localized_November = "November"
		    Localized_December = "December"
		    
		  Case 6 // German
		    Localized_January = "Januar"
		    Localized_February = "Februar"
		    Localized_March = "März"
		    Localized_April = "April"
		    Localized_May = "Mai"
		    Localized_June = "Juni"
		    Localized_July = "Juli"
		    Localized_August = "August"
		    Localized_September = "September"
		    Localized_October = "Oktober"
		    Localized_November = "November"
		    Localized_December = "Dezember"
		    
		  Case 7 // Afrikaans
		    Localized_January = "Januarie"
		    Localized_February = "Februarie"
		    Localized_March = "Maart"
		    Localized_April = "April"
		    Localized_May = "Mei"
		    Localized_June = "Junie"
		    Localized_July = "Julie"
		    Localized_August = "Augustus"
		    Localized_September = "September"
		    Localized_October = "Oktober"
		    Localized_November = "November"
		    Localized_December = "Desember"
		    
		  Case 8 // Polish
		    Localized_January = "Styczeń"
		    Localized_February = "Luty"
		    Localized_March = "Marzec"
		    Localized_April = "Kwiecień"
		    Localized_May = "Maj"
		    Localized_June = "Czerwiec"
		    Localized_July = "Lipiec"
		    Localized_August = "Sierpień"
		    Localized_September = "Wrzesień"
		    Localized_October = "Październik"
		    Localized_November = "Listopad"
		    Localized_December = "Grudzień"
		    
		  Case 9 // Portuguese
		    Localized_January = "Janeiro"
		    Localized_February = "Fevereiro"
		    Localized_March = "Março"
		    Localized_April = "Abril"
		    Localized_May = "Maio"
		    Localized_June = "Junho"
		    Localized_July = "Julho"
		    Localized_August = "Agosto"
		    Localized_September = "Setembro"
		    Localized_October = "Outubro"
		    Localized_November = "Novembro"
		    Localized_December = "Dezembro"
		    
		  End Select
		  
		  
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Function calcCenturyNumber(inYear as Integer) As Integer
		  // Map Century Number
		  Select Case inYear
		  Case 1900 to 1999
		    Return 0
		  Case 2000 to 2099
		    Return 1
		  Case 2100 to 2199
		    Return 3
		  Case 2200 to 2299
		    Return 5
		  End Select
		End Function
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Function calcHowManyCalSlotsAvailable(inStartingSlot as Integer, inEndingSlot as Integer, inSpacesAvailable as Integer) As Integer
		  // This will calculate how many available Spaces we have for next or previous month Calendar day assignments
		  for x as integer = inStartingSlot to inEndingSlot
		    if CalendarButtonClassArray(x).Day = 0 Then
		      inSpacesAvailable = inSpacesAvailable + 1
		    end if
		  next x
		  
		  Return inSpacesAvailable
		End Function
	#tag EndMethod

	#tag Method, Flags = &h0
		Function calcLeapYear(inYear as Integer) As boolean
		  Return (((inYear MOD 4)=0) AND ((inYear MOD 100)<>0)) OR (inYear MOD 400)=0
		  
		  
		End Function
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Function calcMonthNumber(inMonth as String) As Integer
		  //If inMonth = Localized_February AND LeapYearBool = True  OR inMonth = Localized_August Then
		  //Return 0
		  //Elseif inMonth = Localized_February AND LeapYearBool = False Then
		  //Return 0
		  //Elseif inMonth = Localized_November OR inMonth = Localized_March Then
		  //Return 1
		  //Elseif inMonth = Localized_June Then
		  //Return 2
		  //ElseIf inMonth = Localized_September OR inMonth = Localized_December Then
		  //Return 3
		  //ElseIf inMonth = Localized_January AND LeapYearBool = True OR inMonth = Localized_April OR inMonth = Localized_July Then
		  //Return 4
		  //Elseif inMonth = Localized_January AND LeapYearBool = False OR inMonth = Localized_October Then
		  //Return 5
		  //Elseif inMonth = Localized_May Then
		  //Return 6
		  //End if
		  //
		  
		  // FIX FROM JON OGEN
		  If inMonth = Localized_February AND LeapYearBool = True  OR inMonth = Localized_August Then
		    Return 0
		  Elseif (inMonth = Localized_February AND Not LeapYearBool) OR inMonth = Localized_November OR inMonth = Localized_March Then
		    Return 1
		  Elseif inMonth = Localized_June Then
		    Return 2
		  ElseIf inMonth = Localized_September OR inMonth = Localized_December Then
		    Return 3
		  ElseIf inMonth = Localized_January AND LeapYearBool = True OR inMonth = Localized_April OR inMonth = Localized_July Then
		    Return 4
		  Elseif inMonth = Localized_January AND LeapYearBool = False OR inMonth = Localized_October Then
		    Return 5
		  Elseif inMonth = Localized_May Then
		    Return 6
		  End if
		  
		End Function
	#tag EndMethod

	#tag Method, Flags = &h0
		Function calculate1stDayOfMonth() As String
		  // Need to Find out which Day of the Week this Month's 1st Day starts on
		  Dim thisYear as Integer = Cdbl(SelectedYear)
		  LeapYearBool = calcLeapYear(thisYear)
		  
		  // Calculate to get Weekday Number
		  Dim WeekdayNum as integer = (CenturyNumber + YearNumber + MonthNumber)
		  
		  DIM CalcWeekDayNum as Integer = WeekdayNum Mod 7
		  
		  // Map Weekday Number to Weekday String
		  FirstWeekday = getDayOfWeekString(CalcWeekDayNum)
		  
		  Return FirstWeekday
		End Function
	#tag EndMethod

	#tag Method, Flags = &h0
		Sub calculateMonth(inMonth as String)
		  // Get Month Number
		  MonthNumber = calcMonthNumber(inMonth)
		  
		  
		  
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h0
		Function calculateYear(inYear as String) As Integer
		  // Expect String from PopUp Menu but needs to convert to Integer
		  Dim InYearInt as Integer = CDbl(inYear)
		  LeapYearBool = calcLeapYear(InYearInt)
		  
		  // Year Number
		  YearNumber = calcYearNumber(inYear)
		  If YearNumber = -1 Then
		    // NOT A VALID YEAR
		    Return -1
		  End If
		  
		End Function
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Function calcYearNumber(inYear as String) As Integer
		  // PUT BOUNDS AROUND YEAR SELECTION
		  Dim CalcYearFinal, theYear as integer
		  
		  theYear = CDbl(inYear)
		  If theYear < StartYear OR theYear > EndYear Then
		    Return -1
		  End If
		  
		  Dim TrimFirstTwoDigits as String = inYear.Right(2)
		  Dim Year as Integer = CDbl(TrimFirstTwoDigits)
		  Dim CalcYearNum as Integer
		  CalcYearNum  = Year + Year / 4
		  
		  
		  CalcYearFinal = CalcYearNum mod 7
		  
		  Return CalcYearFinal
		End Function
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub clearDays()
		  for i as integer = 0 to UBound(CalendarButtonClassArray)
		    CalendarButtonClassArray(i).Day = 0
		  next i
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h1000
		Sub Constructor()
		  // Calling the overridden superclass constructor.
		  Super.Constructor
		  
		  // Assign Calendar Spaces
		  initialAssignmentCalendarButtons(36)
		  
		  // Date Instantiations
		  CurrentDate = new Date
		  
		  // ------- SetCustomCalendarStartDate() ACCEPTS THE FOLLOWING OPTIONAL PARAMETERS BELOW (NOTE: IF YOU DON'T PASS ANY PARAMETERS THE CALENDAR USES TODAYS DATE AND YEAR
		  // ------- (optional inPassedDate as Date, optional inPassedStartYear as Integer, optional inPassedEndYear as Integer)
		  SetCustomCalendarStartDate()
		  
		  // LOAD THE YEAR POP UP MENU WITH THE PROPER SELECTION
		  loadYearList(UserSelectedStartYear,UserSelectedEndYear,CurrentDate.Year)
		  
		  // Load the Localized Day of the Week Abbreviation List to the Calendar
		  buildLocalizedDayOfWeek_Arrays(0)
		  
		  // Figure out Century Number
		  CenturyNumber = calcCenturyNumber(YearNumber)
		  
		  
		  
		  
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h0
		Function convertMonthIntToMonthString(inMonthInt as Integer) As String
		  Select Case inMonthInt
		    
		  Case 1
		    Return Localized_January
		  Case 2
		    Return Localized_February
		  Case 3
		    Return Localized_March
		  Case 4
		    Return Localized_April
		  Case 5
		    Return Localized_May
		  Case 6
		    Return Localized_June
		  Case 7
		    Return Localized_July
		  Case 8
		    Return Localized_August
		  Case 9
		    Return Localized_September
		  Case 10
		    Return Localized_October
		  Case 11
		    Return Localized_November
		  Case 12
		    Return Localized_December
		  End Select
		End Function
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Function convertMonthStringToMonthNumber(inMonth as String) As Integer
		  Select Case inMonth
		    
		  Case Localized_January
		    Return 1
		  Case Localized_February
		    Return 2
		  Case Localized_March
		    Return 3
		  Case Localized_April
		    Return 4
		  Case Localized_May
		    Return 5
		  Case Localized_June
		    Return 6
		  Case Localized_July
		    Return 7
		  Case Localized_August
		    Return 8
		  Case Localized_September
		    Return 9
		  Case Localized_October
		    Return 10
		  Case Localized_November
		    Return 11
		  Case Localized_December
		    Return 12
		  End Select
		End Function
	#tag EndMethod

	#tag Method, Flags = &h0
		Sub deselectAll()
		  for i as integer = 0 to UBound(CalendarButtonClassArray)
		    CalendarButtonClassArray(i).Selected = False
		    CalendarButtonClassArray(i).mouseOver = False
		    
		  next i
		  
		  Me.Invalidate(False)
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Function getDayOfWeekString(inDayOfWeekNum as Integer) As String
		  Select Case inDayOfWeekNum
		  Case 6
		    Return Localized_Sunday
		  Case 0
		    Return Localized_Monday
		  Case 1
		    Return Localized_Tuesday
		  Case 2
		    Return Localized_Wednesday
		  Case 3
		    Return Localized_Thursday
		  Case 4
		    Return Localized_Friday
		  Case 5
		    Return Localized_Saturday
		  End Select
		End Function
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Function getFirstDayOfWeekCalSlotNumber(inDayofWeekString as String, inCalMonFirstDayOfWeekBool as Boolean) As Integer
		  if inCalMonFirstDayOfWeekBool = False Then
		    // Sunday is the First Day of the Week Calendar Labeling Wise
		    Select Case FirstWeekDay
		    Case Localized_Sunday
		      Return 7 
		    Case Localized_Monday
		      Return 8
		    Case Localized_Tuesday
		      Return 9
		    Case Localized_Wednesday
		      Return 10
		    Case Localized_Thursday
		      Return 11
		    Case Localized_Friday
		      Return 12
		    Case Localized_Saturday
		      Return 13
		    End Select
		    
		  Elseif inCalMonFirstDayOfWeekBool = True Then
		    // Monday is the First Day of the Week Calendar Labeling Wise
		    Select Case FirstWeekDay
		    Case Localized_Monday
		      Return 7
		    Case Localized_Tuesday
		      Return 8
		    Case Localized_Wednesday
		      Return 9
		    Case Localized_Thursday
		      Return 10
		    Case Localized_Friday
		      Return 11
		    Case Localized_Saturday
		      Return 12
		    Case Localized_Sunday
		      Return 13
		    End Select
		  End if
		  
		End Function
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Function getNextMonthString(inSelectedMonth as String) As String
		  Select Case inSelectedMonth
		    
		  Case Localized_December
		    Return  Localized_January
		    
		  Case Localized_January
		    Return Localized_February
		    
		  Case Localized_February
		    Return Localized_March
		    
		  Case Localized_March
		    Return Localized_April
		    
		  Case  Localized_April
		    Return  Localized_May
		    
		  Case Localized_May
		    Return  Localized_June
		    
		  Case Localized_June
		    Return Localized_July
		    
		  Case Localized_July
		    Return Localized_August
		    
		  Case Localized_August
		    Return Localized_September
		    
		  Case Localized_September
		    Return Localized_October
		    
		  Case Localized_October
		    Return Localized_November
		    
		  Case Localized_November
		    Return Localized_December
		  End Select
		End Function
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Function getPrevMonthString(inSelectedMonth as String) As String
		  Select Case inSelectedMonth
		    
		  Case Localized_January
		    Return Localized_December
		    
		  Case Localized_February
		    Return Localized_January
		    
		  Case Localized_March
		    Return Localized_February
		    
		  Case Localized_April
		    Return Localized_March
		    
		  Case Localized_May
		    Return  Localized_April
		    
		  Case Localized_June
		    Return Localized_May
		    
		  Case Localized_July
		    Return Localized_June
		    
		  Case Localized_August
		    Return Localized_July
		    
		  Case Localized_September
		    Return Localized_August
		    
		  Case Localized_October
		    Return Localized_September
		    
		  Case Localized_November
		    Return Localized_October
		    
		  Case Localized_December
		    Return Localized_November
		  End Select
		End Function
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub initialAssignmentCalendarButtons(inNumOfSpaces as Integer)
		  // CREATE EACH CALENDAR TIME SLOT
		  Dim row, col as integer
		  
		  for y as integer = 1 to 49
		    Select Case y
		    Case 1 to 7 // Row 1
		      row =  1
		      CalendarButton = New CalendarButtonClass
		      CalendarButton.ID = y
		      CalendarButton.Row = row
		      CalendarButton.RightX = 30
		      CalendarButton.BottomY = 24
		      
		    Case 8 to 14 // Row 2
		      row =  2
		      CalendarButton = New CalendarButtonClass
		      CalendarButton.ID = y
		      CalendarButton.RightX = (y-7) * 30
		      CalendarButton.BottomY = row  * 24
		      CalendarButton.Row = row
		      
		    Case 15 to 21 // Row 3
		      row =  3
		      CalendarButton = New CalendarButtonClass
		      CalendarButton.ID = y
		      CalendarButton.RightX = (y-14) * 30
		      CalendarButton.BottomY = row  * 24
		      CalendarButton.Row = row
		      
		    Case 22 to 28 // Row 4
		      row =  4
		      CalendarButton = New CalendarButtonClass
		      CalendarButton.ID = y
		      CalendarButton.RightX = (y-21) * 30
		      CalendarButton.BottomY = row  * 24
		      CalendarButton.Row = row
		      
		    Case 29 to 35 // Row 5
		      row =  5
		      CalendarButton = New CalendarButtonClass
		      CalendarButton.ID = y
		      CalendarButton.RightX =  (y-28) * 30
		      CalendarButton.BottomY = row  * 24
		      CalendarButton.Row = row
		      
		    Case 36 to 42 // Row 6
		      row =  6
		      CalendarButton = New CalendarButtonClass
		      CalendarButton.ID = y
		      CalendarButton.RightX = (y-35) * 30
		      CalendarButton.BottomY = row  * 24
		      CalendarButton.Row = row
		      
		    Case 43 to 50 // Row 7
		      row =  7
		      CalendarButton = New CalendarButtonClass
		      CalendarButton.ID = y
		      CalendarButton.RightX = (y-42) * 30
		      CalendarButton.BottomY = row  * 24
		      CalendarButton.Row = row
		      
		    End Select
		    CalendarButtonClassArray.Append CalendarButton
		  Next y
		  
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h0
		Sub loadMonthList()
		  Calendar_Container(window).MonthPopup.DeleteAllRows
		  Calendar_Container(window).MonthPopup.AddRow Localized_January
		  Calendar_Container(window).MonthPopup.AddRow Localized_February
		  Calendar_Container(window).MonthPopup.AddRow Localized_March
		  Calendar_Container(window).MonthPopup.AddRow Localized_April
		  Calendar_Container(window).MonthPopup.AddRow Localized_May
		  Calendar_Container(window).MonthPopup.AddRow Localized_June
		  Calendar_Container(window).MonthPopup.AddRow Localized_July
		  Calendar_Container(window).MonthPopup.AddRow Localized_August
		  Calendar_Container(window).MonthPopup.AddRow Localized_September
		  Calendar_Container(window).MonthPopup.AddRow Localized_October
		  Calendar_Container(window).MonthPopup.AddRow Localized_November
		  Calendar_Container(window).MonthPopup.AddRow Localized_December
		  
		  Dim TodaysMonth as New Date
		  Dim TodaysMonthString as String
		  
		  TodaysMonthString  = convertMonthIntToMonthString(TodaysMonth.Month)
		  
		  for i as integer = 0 to Calendar_Container(Window).MonthPopup.ListCount-1
		    if TodaysMonthString = Calendar_Container(Window).MonthPopup.List(i) Then
		      Calendar_Container(Window).MonthPopup.ListIndex = i
		    End if
		  next i
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h0
		Sub loadYearList(inStartYear as integer, inEndYear as Integer, optional inSelectedYear as Integer)
		  // Load the Year Pop Up Menu on the Calendar Container
		  
		  
		  if inStartYear = 0 OR inEndYear = 0 Then
		    // IF NO RANGE IS USER SELECTED
		    Calendar_Container(window).YearPopup.DeleteAllRows
		    for i as integer = 1905 to 2060
		      Calendar_Container(window).YearPopup.AddRow Str(i)
		    next i
		  Else
		    // USER SELECTED YEAR RANGE
		    Calendar_Container(window).YearPopup.DeleteAllRows
		    for i as integer = inStartYear to inEndYear
		      Calendar_Container(window).YearPopup.AddRow Str(i)
		    next i
		  end if
		  
		  // Load Curent Year if inSelectedYear = 0
		  Dim TodaysYear as New Date
		  
		  if inSelectedYear = 0 Then
		    for i as integer = 0 to Calendar_Container(window).YearPopup.ListCount-1
		      if Str(TodaysYear.Year) = Calendar_Container(window).YearPopup.List(i) Then
		        Calendar_Container(window).YearPopup.ListIndex = i
		      End if
		    next i
		    
		  Elseif inSelectedYear <> 0 Then
		    
		    for j as integer = 0 to Calendar_Container(window).YearPopup.ListCount-1
		      if Str(inSelectedYear) = Calendar_Container(window).YearPopup.List(j) Then
		        Calendar_Container(window).YearPopup.ListIndex = j
		      End if
		    next j
		    
		    
		  end if
		  
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Function numOfDaysInMonth(inMonth as String) As Integer
		  // Jan - 31
		  // Feb (non leap year = 28, leap year = 29)
		  // Mar - 31
		  // Apr - 30
		  // May - 31
		  // Jun - 30
		  // Jul - 31
		  // Aug - 31
		  // Sept - 30
		  // Oct - 31
		  // Nov - 30
		  // Dec - 31
		  
		  //// NEED TO TAKE YEAR INTO CONSIDERATION AND CALCULATE IN THIS FUNCTION IF LEAP YEAR
		  Select Case inMonth
		  Case Localized_January
		    Return 31
		    
		  Case Localized_February
		    if LeapYearBool = True Then
		      Return 29
		    Elseif LeapYearBool = False Then
		      Return 28
		    End if
		    
		  Case Localized_March
		    Return 31
		    
		  Case Localized_April
		    Return 30
		    
		  Case Localized_May
		    Return 31
		    
		  Case Localized_June
		    Return 30
		    
		  Case Localized_July
		    Return 31
		    
		  Case Localized_August
		    Return 31
		    
		  Case Localized_September
		    Return 30
		    
		  Case Localized_October
		    Return 31
		    
		  Case Localized_November
		    Return 30
		    
		  Case Localized_December
		    Return 31
		    
		  End Select
		  
		  
		  
		  
		  
		  
		End Function
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub remapSelectedToSlot()
		  for i as integer = 0 to UBound(CalendarButtonClassArray)
		    
		    if CalendarButtonClassArray(i).SelectedDate= CalendarButtonClassArray(i).MyDate Then
		      if CalendarButtonClassArray(i).Day = SelectedDate.Day Then
		        CalendarButtonClassArray(i).Selected = True
		      end if
		    End if
		    
		  next
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h0
		Sub selectDayToHighlight(inDate as Date)
		  for i as integer = 0 to UBound(CalendarButtonClassArray)
		    
		    SelectedDate = New Date
		    // Set the correct month
		    SelectedDate = CurrentDate
		    CalendarButtonClassArray(i).SelectedDate = inDate
		    if CalendarButtonClassArray(i).MyDate = inDate Then
		      CalendarButtonClassArray(i).Selected = True
		    End if
		    Me.Invalidate(False)
		    
		    
		  next
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h0
		Sub SetCustomCalendarStartDate(optional inPassedDate as Date, optional inPassedStartYear as Integer, optional inPassedEndYear as Integer)
		  // ------- SET THESE VALUES IF YOU WOULD LIKE A CUSTOM CALENDAR START DATE
		  
		  // USE PASSED PARAMETERS TO SET DATE/TIME PROGRAMATICALLY
		  If inPassedDate <> NIL THEN
		    CurrentDate.Month = inPassedDate.Month
		    CurrentDate.Day = inPassedDate.Day
		    CurrentDate.Year= inPassedDate.Year
		  End If
		  
		  
		  // THE START AND END YEAR VALUES ARE THE YEAR BOUNDARY WITHIN YOUR CALENDAR YEAR POP UP MENU
		  // IF THESE USER VALUES ARE NOT PRESENT WE WILL DEFAULT TO StartYear: 1905 EndYear: 2061
		  // USE PROGRAMATICALLY
		  IF inPassedStartYear <> 0 OR inPassedDate <> NIL THEN
		    UserSelectedStartYear = inPassedStartYear
		    UserSelectedEndYear = inPassedEndYear
		    // LOAD THE YEAR POP UP MENU WITH THE PROPER SELECTION
		    loadYearList(UserSelectedStartYear,UserSelectedEndYear,CurrentDate.Year)
		    Calendar_Container(Window).takeMeToTodaysDate()
		  END IF
		  
		  
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub takeUsToMonth(inMonth as String, inSelectedDate as Date)
		  Select Case inMonth
		  Case "Next"
		    // Need a Check to See about Incrementing Year or not
		    if NextMonth = Localized_January then
		      // Need to increment Year
		      NextYear = CDbl(Calendar_Container(Window).YearPopup.Text)+1
		      for i as integer = 0 to Calendar_Container(Window).YearPopup.ListCount-1
		        if Str(NextYear) = Calendar_Container(Window).YearPopup.List(i) Then
		          Calendar_Container(Window).YearPopup.ListIndex = i
		          exit
		        End if
		      next i
		    End if
		    for i as integer = 0 to Calendar_Container(Window).MonthPopup.ListCount-1
		      if NextMonth = Calendar_Container(Window).MonthPopup.List(i) Then
		        Calendar_Container(Window).MonthPopup.ListIndex = i
		        exit
		      End if
		    next i
		    
		  Case "Prev"
		    
		    if PreviousMonth = Calendar_Container(Window).Calendar1.Localized_December then
		      // Need to increment Year
		      PrevYear = CDbl(Calendar_Container(Window).YearPopup.Text)-1
		      for i as integer = 0 to Calendar_Container(Window).YearPopup.ListCount-1
		        if Str(PrevYear) = Calendar_Container(Window).YearPopup.List(i) Then
		          Calendar_Container(Window).YearPopup.ListIndex = i
		          exit
		        End if
		      next i
		    End if
		    
		    for i as integer = 0 to Calendar_Container(Window).MonthPopup.ListCount-1
		      if PreviousMonth = Calendar_Container(Window).MonthPopup.List(i) Then
		        Calendar_Container(Window).MonthPopup.ListIndex = i
		        exit
		      End if
		    next i
		    
		    
		  End Select
		  
		  
		  
		  
		  Me.Invalidate(False)
		  
		  
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h0
		Sub UPDATE_MapDaysToCalSlots()
		  Dim NumOfDaysInMonth as Integer  = numOfDaysInMonth(SelectedMonth)
		  Dim FirstCalSlot as Integer
		  
		  // Calendar Slot Mappings for Selected Month
		  FirstCalSlot = getFirstDayOfWeekCalSlotNumber(FirstWeekDay,CalMonFirstDayOfWeekBool) 
		  
		  // Clear the Class' day values
		  clearDays()
		  
		  // Map the Calendar Slots to Correct Month Days
		  Dim DayCounter as Integer  = 0
		  Dim i  as Integer
		  
		  Dim theEndCalc as Integer = NumOfDaysInMonth+FirstCalSlot 
		  
		  for i = FirstCalSlot to theEndCalc
		    // Erase Other Marks
		    CalendarButtonClassArray(i).PrevMonthMark = False
		    CalendarButtonClassArray(i).NextMonthMark = False
		    
		    // Process Selected Month Day
		    CalendarButtonClassArray(i).Day = DayCounter
		    
		    // Set MYDate for Current Month
		    Dim TmpDate as New Date
		    TmpDate.Month = convertMonthStringToMonthNumber(SelectedMonth)
		    TmpDate.Day = DayCounter
		    TmpDate.Year = CDbl(SelectedYear)
		    CalendarButtonClassArray(i).MyDate = TmpDate
		    
		    DayCounter = DayCounter + 1
		    Invalidate(False)
		  Next i
		  
		  // Need to Calculate How many Available Spaces for the previous month's worth of Calendar Days
		  Dim CalPrevMonthSpacesAvailable as Integer = calcHowManyCalSlotsAvailable(7,13,1)
		  
		  // Need to Calculate How many Available Spaces for the next month's worth of Calendar Days
		  Dim CalNextMonthSpacesAvailable as Integer = calcHowManyCalSlotsAvailable(38,48,0)
		  
		  // Figure Out which Months are Previous and Next
		  PreviousMonth = getPrevMonthString(SelectedMonth)
		  NextMonth = getNextMonthString(SelectedMonth)
		  
		  // Figure Out How Many Days are in the Previous and Next Month
		  Dim PrevMonthNumOfDays as Integer = numOfDaysInMonth(PreviousMonth)
		  Dim NextMonthNumOfDays as Integer = numOfDaysInMonth(NextMonth)
		  
		  if Calendar_Container(window).Calendar1.IncludePrevNextMonthDaysBool = True Then
		    // Now Map the Previous Available Slots with the appropriate Previous Month's Ending Calendar Days
		    Dim PrevDayCounter as Integer  = PrevMonthNumOfDays
		    Dim ii as integer
		    for ii = FirstCalSlot DownTo CalPrevMonthSpacesAvailable
		      CalendarButtonClassArray(ii).Day = PrevDayCounter
		      
		      Dim TmpDate as New Date
		      TmpDate.Year = CDbl(SelectedYear)
		      TmpDate.Month = convertMonthStringToMonthNumber(PreviousMonth)
		      TmpDate.Day = PrevDayCounter
		      CalendarButtonClassArray(ii).MyDate = TmpDate
		      
		      CalendarButtonClassArray(ii).PrevMonthMark = True
		      PrevDayCounter = PrevDayCounter - 1
		      Invalidate(False)
		    Next ii
		    
		    // Now Map the Next Available Slots with the appropriate Next Month's Beginning Calendar Days
		    Dim NextDayCounter as Integer  = 1
		    Dim xx as integer
		    Dim LastCalSlot as Integer = FirstCalSlot + NumOfDaysInMonth+1
		    for xx = LastCalSlot to 48 // 48 is the Last Calendar Slot
		      CalendarButtonClassArray(xx).Day = NextDayCounter
		      Dim TmpDate as New Date
		      TmpDate.Year = CDbl(SelectedYear)
		      TmpDate.Month = convertMonthStringToMonthNumber(NextMonth)
		      TmpDate.Day = NextDayCounter
		      CalendarButtonClassArray(xx).MyDate = TmpDate
		      
		      CalendarButtonClassArray(xx).NextMonthMark = True
		      NextDayCounter = NextDayCounter + 1
		      Invalidate(False)
		    Next xx
		  End if
		  
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h0
		Sub UPDATE_MonthDays()
		  // This is the Day of Week the 1st day of the Selected Month is
		  Dim DayOfWeekFor1stDayOfMonth as String = calculate1stDayOfMonth
		End Sub
	#tag EndMethod


	#tag Property, Flags = &h0
		AllowMultipleSelections As Boolean
	#tag EndProperty

	#tag Property, Flags = &h0
		CalendarButton As CalendarButtonClass
	#tag EndProperty

	#tag Property, Flags = &h0
		CalendarButtonClassArray() As CalendarButtonClass
	#tag EndProperty

	#tag Property, Flags = &h0
		CalMonFirstDayOfWeekBool As Boolean = False
	#tag EndProperty

	#tag Property, Flags = &h21
		Private CenturyNumber As Integer
	#tag EndProperty

	#tag Property, Flags = &h0
		CurrentDate As Date
	#tag EndProperty

	#tag Property, Flags = &h21
		Private DayNumber As Integer
	#tag EndProperty

	#tag Property, Flags = &h21
		Private DayOfWeekArray_SS() As String
	#tag EndProperty

	#tag Property, Flags = &h21
		Private DayOfWeek_MS() As String
	#tag EndProperty

	#tag Property, Flags = &h0
		drawColumnLines As Boolean
	#tag EndProperty

	#tag ComputedProperty, Flags = &h0
		#tag Getter
			Get
			  return inEndYear
			End Get
		#tag EndGetter
		#tag Setter
			Set
			  inEndYear = value
			  
			  loadYearList(inStartYear, inEndYear)
			End Set
		#tag EndSetter
		EndYear As Integer
	#tag EndComputedProperty

	#tag Property, Flags = &h0
		FirstWeekDay As String
	#tag EndProperty

	#tag Property, Flags = &h0
		IncludePrevNextMonthDaysBool As Boolean = True
	#tag EndProperty

	#tag Property, Flags = &h21
		Private inEndYear As Integer
	#tag EndProperty

	#tag Property, Flags = &h21
		Private inStartYear As Integer
	#tag EndProperty

	#tag Property, Flags = &h21
		Private LeapYearBool As Boolean
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_April As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_August As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_December As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_February As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_Friday As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_January As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_July As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_June As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_March As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_May As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_Monday As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_November As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_October As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_Saturday As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_September As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_Sunday As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_Thursday As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_Tuesday As String
	#tag EndProperty

	#tag Property, Flags = &h0
		Localized_Wednesday As String
	#tag EndProperty

	#tag Property, Flags = &h0
		MonthNumber As Integer
	#tag EndProperty

	#tag Property, Flags = &h21
		Private mSelectedYear As String
	#tag EndProperty

	#tag Property, Flags = &h0
		NextMonth As String
	#tag EndProperty

	#tag Property, Flags = &h0
		NextYear As Integer
	#tag EndProperty

	#tag Property, Flags = &h0
		PreviousMonth As String
	#tag EndProperty

	#tag Property, Flags = &h0
		PrevYear As Integer
	#tag EndProperty

	#tag Property, Flags = &h0
		SelectedDate As Date
	#tag EndProperty

	#tag Property, Flags = &h0
		SelectedMonth As String
	#tag EndProperty

	#tag Property, Flags = &h0
		SelectedX As Integer
	#tag EndProperty

	#tag Property, Flags = &h0
		SelectedY As Integer
	#tag EndProperty

	#tag ComputedProperty, Flags = &h0
		#tag Getter
			Get
			  return mSelectedYear
			End Get
		#tag EndGetter
		#tag Setter
			Set
			  mSelectedYear = value
			  
			  if mSelectedYear = "" Then
			    mSelectedYear = "2014"
			  End if
			End Set
		#tag EndSetter
		SelectedYear As String
	#tag EndComputedProperty

	#tag Property, Flags = &h21
		Private SelectTodayRunOnce As Boolean = False
	#tag EndProperty

	#tag ComputedProperty, Flags = &h0
		#tag Getter
			Get
			  Return inStartYear
			End Get
		#tag EndGetter
		#tag Setter
			Set
			  inStartYear= value
			  
			End Set
		#tag EndSetter
		StartYear As Integer
	#tag EndComputedProperty

	#tag Property, Flags = &h0
		TodaysDate_NotSelected As Color = &c0000FF
	#tag EndProperty

	#tag Property, Flags = &h0
		TodaysDate_Selected As Color = &cFFFF00
	#tag EndProperty

	#tag Property, Flags = &h0
		#tag Note
			c
		#tag EndNote
		UserSelectedEndYear As Integer
	#tag EndProperty

	#tag Property, Flags = &h0
		UserSelectedStartYear As Integer
	#tag EndProperty

	#tag Property, Flags = &h0
		YearNumber As Integer
	#tag EndProperty


	#tag ViewBehavior
		#tag ViewProperty
			Name="AcceptFocus"
			Visible=true
			Group="Behavior"
			Type="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="AcceptTabs"
			Visible=true
			Group="Behavior"
			Type="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="AllowMultipleSelections"
			Group="Behavior"
			Type="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="AutoDeactivate"
			Visible=true
			Group="Appearance"
			InitialValue="True"
			Type="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Backdrop"
			Visible=true
			Group="Appearance"
			Type="Picture"
			EditorType="Picture"
		#tag EndViewProperty
		#tag ViewProperty
			Name="CalMonFirstDayOfWeekBool"
			Group="Behavior"
			InitialValue="False"
			Type="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="DoubleBuffer"
			Visible=true
			Group="Behavior"
			InitialValue="False"
			Type="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="drawColumnLines"
			Group="Behavior"
			Type="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Enabled"
			Visible=true
			Group="Appearance"
			InitialValue="True"
			Type="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="EndYear"
			Group="Behavior"
			InitialValue="2050"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="EraseBackground"
			Visible=true
			Group="Behavior"
			InitialValue="True"
			Type="Boolean"
			EditorType="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="FirstWeekDay"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Height"
			Visible=true
			Group="Position"
			InitialValue="100"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="HelpTag"
			Visible=true
			Group="Appearance"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="IncludePrevNextMonthDaysBool"
			Group="Behavior"
			InitialValue="True"
			Type="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Index"
			Visible=true
			Group="ID"
			Type="Integer"
			EditorType="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="InitialParent"
			Type="String"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Left"
			Visible=true
			Group="Position"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_April"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_August"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_December"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_February"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_Friday"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_January"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_July"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_June"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_March"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_May"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_Monday"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_November"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_October"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_Saturday"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_September"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_Sunday"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_Thursday"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_Tuesday"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Localized_Wednesday"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="LockBottom"
			Visible=true
			Group="Position"
			Type="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="LockLeft"
			Visible=true
			Group="Position"
			Type="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="LockRight"
			Visible=true
			Group="Position"
			Type="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="LockTop"
			Visible=true
			Group="Position"
			Type="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="MonthNumber"
			Group="Behavior"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Name"
			Visible=true
			Group="ID"
			Type="String"
			EditorType="String"
		#tag EndViewProperty
		#tag ViewProperty
			Name="NextMonth"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="NextYear"
			Group="Behavior"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="PreviousMonth"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="PrevYear"
			Group="Behavior"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="SelectedMonth"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="SelectedX"
			Group="Behavior"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="SelectedY"
			Group="Behavior"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="SelectedYear"
			Group="Behavior"
			Type="String"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="StartYear"
			Group="Behavior"
			InitialValue="1904"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Super"
			Visible=true
			Group="ID"
			Type="String"
			EditorType="String"
		#tag EndViewProperty
		#tag ViewProperty
			Name="TabIndex"
			Visible=true
			Group="Position"
			InitialValue="0"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="TabPanelIndex"
			Group="Position"
			InitialValue="0"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="TabStop"
			Visible=true
			Group="Position"
			InitialValue="True"
			Type="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="TodaysDate_NotSelected"
			Group="Behavior"
			InitialValue="&c0000FF"
			Type="Color"
		#tag EndViewProperty
		#tag ViewProperty
			Name="TodaysDate_Selected"
			Group="Behavior"
			InitialValue="&cFFFF00"
			Type="Color"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Top"
			Visible=true
			Group="Position"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Transparent"
			Visible=true
			Group="Behavior"
			InitialValue="True"
			Type="Boolean"
			EditorType="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="UseFocusRing"
			Visible=true
			Group="Appearance"
			InitialValue="True"
			Type="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="UserSelectedEndYear"
			Group="Behavior"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="UserSelectedStartYear"
			Group="Behavior"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Visible"
			Visible=true
			Group="Appearance"
			InitialValue="True"
			Type="Boolean"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Width"
			Visible=true
			Group="Position"
			InitialValue="100"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="YearNumber"
			Group="Behavior"
			Type="Integer"
		#tag EndViewProperty
	#tag EndViewBehavior
End Class
#tag EndClass